home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wantan1a / minimize.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-05  |  3.4 KB  |  113 lines
  1. VERSION 5.00
  2. Begin VB.Form MiniMize 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "MiniMize"
  5.    ClientHeight    =   255
  6.    ClientLeft      =   9495
  7.    ClientTop       =   8655
  8.    ClientWidth     =   2205
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   255
  11.    ScaleWidth      =   2205
  12.    ShowInTaskbar   =   0   'False
  13.    Begin VB.Frame Frame1 
  14.       BackColor       =   &H80000012&
  15.       BorderStyle     =   0  'None
  16.       Caption         =   "Frame1"
  17.       Height          =   255
  18.       Left            =   240
  19.       TabIndex        =   0
  20.       Top             =   0
  21.       Width           =   1695
  22.       Begin VB.Label Label1 
  23.          BackStyle       =   0  'Transparent
  24.          Caption         =   "  ErrorR Macro Shop"
  25.          BeginProperty Font 
  26.             Name            =   "Comic Sans MS"
  27.             Size            =   8.25
  28.             Charset         =   0
  29.             Weight          =   400
  30.             Underline       =   0   'False
  31.             Italic          =   0   'False
  32.             Strikethrough   =   0   'False
  33.          EndProperty
  34.          ForeColor       =   &H8000000E&
  35.          Height          =   255
  36.          Left            =   0
  37.          MouseIcon       =   "MiniMize.frx":0000
  38.          MousePointer    =   99  'Custom
  39.          TabIndex        =   1
  40.          Top             =   0
  41.          Width           =   1695
  42.       End
  43.    End
  44.    Begin VB.Timer Timer1 
  45.       Interval        =   1
  46.       Left            =   1680
  47.       Top             =   360
  48.    End
  49.    Begin VB.Label Label3 
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   " +"
  52.       BeginProperty Font 
  53.          Name            =   "Arial"
  54.          Size            =   12
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   255
  62.       Left            =   0
  63.       MouseIcon       =   "MiniMize.frx":030A
  64.       MousePointer    =   99  'Custom
  65.       TabIndex        =   3
  66.       Top             =   0
  67.       Width           =   255
  68.    End
  69.    Begin VB.Label Label2 
  70.       BackStyle       =   0  'Transparent
  71.       Caption         =   " X"
  72.       BeginProperty Font 
  73.          Name            =   "Comic Sans MS"
  74.          Size            =   9.75
  75.          Charset         =   0
  76.          Weight          =   700
  77.          Underline       =   0   'False
  78.          Italic          =   0   'False
  79.          Strikethrough   =   0   'False
  80.       EndProperty
  81.       Height          =   255
  82.       Left            =   1920
  83.       MouseIcon       =   "MiniMize.frx":045C
  84.       MousePointer    =   99  'Custom
  85.       TabIndex        =   2
  86.       Top             =   0
  87.       Width           =   255
  88.    End
  89. Attribute VB_Name = "MiniMize"
  90. Attribute VB_GlobalNameSpace = False
  91. Attribute VB_Creatable = False
  92. Attribute VB_PredeclaredId = True
  93. Attribute VB_Exposed = False
  94. Private Sub Form_Load()
  95. StayOnTop Me
  96. Call FormShade_Grey(MiniMize)
  97. End Sub
  98. Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  99. FormMove Me
  100. End Sub
  101. Private Sub Label2_Click()
  102. End Sub
  103. Private Sub Label3_Click()
  104. MiniMize.Timer1.Enabled = False
  105. MiniMize.Hide
  106. Form49.Show
  107. End Sub
  108. Private Sub Timer1_Timer()
  109. Call Label_MovieCredit(Label1, Label1)
  110. Label1.ForeColor = &H8000000E
  111. Call LabelTypewriter(Label1, Label1)
  112. End Sub
  113.